COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 0000D~∃ε`@``d@@```d%εA	∪M!→β3LAβ≥λ↓!→∨)LA)-∪=A!%=π''∃λA
∪1&\~)ε```@lA≥⊃≠⊗~∃,v~∀→εA	%'!→βe&Aβ≥⊂A!→∨Q&A)-%≤ε→α¬∩>∞⊗≥~⊗⊃α4J2⊗Mph(4*~↓αRf∧)↓r∞∪qαR=¬∩⊗B⊗
!α2ε≥!α~&d)αJ⊗!α&9ph*
↓¬"fB∃α↓≡a≥ααR=α-B&Q1¬"fB∃α↓≡Nε4)≥↓α$yαNε4)α~&d)α~>∩α∩Jε<J:≥α¬∩>≥8hR
↓α%JB∃↓α:Q≥↓¬"=αRMα∃α2M~Qα>2αε21¬J>VI∧~VJJ,rQα&uαVQ8hR
↓α%JB∃↓<2V:
∧r5≥↓¬:"⊗J*α:5↓jα~V:~α~&2*α:ε6*α~>I∧"&NR⎇∩R&>rα~V:≥"&>9ph*
↓¬"fB∃α:NR⊗αα9≥↓¬:"⊗J*α9↓u¬~R⊗B~α∩&N∧bε∞⊗l*:Qα4zI↓Jt!αε:"↓NJ⊃¬∩V:Mph*
↓¬"fB∃α:∞⊗:%⊃α→≥¬:"⊗J*α→↓u∧~⊗:R-⊃α~>∩α∩&N$zJR&|qα~Vt→9↓!ααR=↓
qA⎇$hR
↓α%JB∃↓<~2⊗ε∩9αR=¬∩⊗&:M"&ε2MR∃α∩M~B2εJp4(4PJ∞>6lz9>*|j6ε
|J2&:*b*2&t)2.NL"∃26≤J∩∃2t*↑h4PJ∞>6lz9>∩∃9>*∩∃9!IAεαJαyzU$2y~∧e"I≠∧=Q!∀≤|YYtr|HJα|LJε∩C#ε¬∃$g(
_X⊗→∀FE∧PgffgS↔c*WQ*e∀~LY∀V%∩,⊗)"∩jα,ADLL

	INTEGER FLINE,RSIDE,FILE
CC	LOGICAL FUNCTION ADMISS
CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1,¬→
9	)α]¬≥λ]	Qα]→
8b`R~(∪∃	%\PbRzD~∀∪∃⊃%.Pf$z`~∀`f∪
∨I≠β(PIαjR~(d`h∪→∨%≠βPPNA)e!
A)!
A
∪1
A≥β5
N↑R4∀ff`%)3!
d`h~(∪∪!→Pz`~∃@A∪!1(A∪&↓
∨$A9.A!1∨(A%=+)∪≥∀@PNnXR~∀∪9/≥⊂z`~∀%βππA(@pf1
∪→
1∃
*~(∪∪Q→∪→
]9
\O'Q NS≥≡A)≡d`~∀%%%¬λ@db1≤Y∃∃`~∀∪∂<A)≡@Lf`~∀Hb∪
∨I≠β(Q∧jY∩R4∀d`∪%Q
∪1
]≥
8Oπ≥Q$NS∂<A)≡@Hd~∀∪I%β⊂@dfY8Y%	∪X~∃ε@↓)3!
Vb``↓
∨$A¬		∪≥≤A∪≥'QβλA=A≠+1(\~∀%β	≠_t`~∀∪%Qβ¬LQ%	∪XRX
2"qEAAL:=αRz↓MM@hP&ε∩lau5DhP&J∩M1vε6|!"J∩M11EAαq$4(LJ→"J$JY:⊗
qA&J$JYuEph(&≡zαR=↓≠→@4)∪_&~>∀jεQ")2→$hQIH&L1"~&d):⊗Er:~V:~9&≡=¬"=↓E_h*
↓¬J>Uα≤
9αRMα∃α~,r
α~Lb∃α:j∃αε5"⊗I↓<2V:
α9∧4(LJ→"~Lb∃::*q≡∞2,
I≥&<yαR=β⊃P4(L~ε0∧DλE¬L9J hP_8∀dbλJ¬M≤ZEβ
`∩1∀ε∃
ε¬#"B(yh∃∪dεllβ!&Mα2(e⊃R3λUSQ+Dt	j1it∃∪hε&#"A_R3⊃'YqR3λQ"B5~⊃(∞ε5∪SsIu⊃R3λ@FE!Pλ+d jλ"'biH'"kmλ"'←←OP⊂⊂'∪g'P S+`liH≡XεE~_DdQ∀'"kV.EQ.1.AND.FILE.EQ.' ')FILE=JFILE
	IF(FILE.EQ,¬∃
%→λ¬&<yαR=β⊃UH4PJ&→"4J2⊂
hZ∩p∧u	j(yh∃∪dε#"B)_J⊃R)HW'"K∪l∪TQgP*'H~εE∧Rc∀%"∀+T_β).EQ.0)CALL EXIT
	CALL DD
C  DD FEEDS DRAWING PROGRAM  (SOMEDAY)
C  GIVE B↓→β≥,A
∪→∀A≥β≠∀A)≡AU'
A'­
A∨9
A∨-∃$XA0u1∪(8~∀h∪I/∪≥⊂@b~∀%∪Q→=∨↔λQ→∪→
R9∂
\`%∂≡A)<@ff`4∀∪↔
%→
{
%→
~∀%πβ→_↓∪
∪→∀PbY
%→
R~(∪πβ→0A%β⊃$Q≥]≥λR4∀∪∪!≥/49"\b%∃
∪→∀{
∪→∀~∀djH∪πβ→0A!→∨TQ≥/∃≥λR~(∪∂≡AQ≡@ff@~∀b∪9/≥⊂zZb~(∪πβ→0A!→∨TQ≥/∃≥λR~(∪∂≡AQ≡@ff@~∀~∀L∪%/%≥λ@dD~∀l∪,{∃	%\PbRVD~∀∩~(∪∪Q,]→
\H`bS∂<A)≡@T~∀∪∃⊃%.Pb$zd``4∀∪⊗zH`b~∀T∪/%∪Q
Pdb0h`S⊗4∀h`∪→∨%≠βPPN@rdrr@@D@NY∩PXN@``@`@@@`@``@`N$~∀∪∀tn~∀∪0zp~∀%	≡@bHA⊗zb1∃	%. bRXp4∀∪∪!⊗W∀]1(]∃	I.PbR%∂≡A)<@bd~(∪∀{∃⊃%.Pb$[⊗~∀%_{∀VD~∀bd%/%∪)∀PdbXDbS_X!∃	%.!≤RY≤u⊗Y⊗W(R~∀∪
β→_A∃1∪(~(bb∪
=%≠β( N@rrdrNY∩LXq∩b@R~∀bL∪πβ→0A	!
U≤Q∃
TR~∀∪≥≡A)≡ff`~(∪≥λ4∀